home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / misc / math / lifemake.cpt / LifeMaker Demo.rsrc / LIF1_8936_GreenBerg < prev    next >
Encoding:
Text File  |  1991-07-16  |  200 b   |  13 lines
  1. RULE GreenBerg
  2.   VAR new
  3. BEGIN    
  4.    IF center THEN
  5.       new := 0
  6.    ELSE
  7.       new := north[0] OR south[0] OR east[0] OR west[0]
  8.    END
  9.    IF center[0] THEN new := new + 2 END
  10.    RETURN new
  11. END  
  12.  
  13.